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1. Pure, the Language 


motion (x,y) (vx,vy) (ax,ay) (step dt:next) 

= [x,y,vx,vy] : 

motion (xl,yl) (vxl,vyl) (ax,ay) next & 
when 

vx = if abs x > 3 then -vx else vx; 
vy = if y < -3 then -vy else vy; 

xl = x+dt*vx+dt*dt*ax/2; yl = y+dt*vy+dt*dt*ay/2; 
vxl = vx+dt*ax; vyl = vy+dt*ay; 
end; 

motion _ (vx,vy) (ax,ay) (mouse x y:next) 

= () : motion (x,y) (vx,0) (ax,ay) next &; 


using actor; 

ball = actor (motion (-3,3) (0.5,0) (0,-3)); 
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Lessons learned from Q 

+ Term rewriting makes for a nice algebraic/functional 
programming language. 

+ Dynamic typing makes it convenient to interface to 
interpreted realtime environments (Pd, Supercollider,...). 

- Bytecode interpretation was slow. People kept bugging 
me for a compiler. (Wanted one myself, actually.) 

- Q lacked some key features, most notably local functions. 

- The global mutex. Boo, hiss! 

=> A new implementation was needed. 
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LLVM changed the game 

- LLVM = “Low-Level Virtual Machine” (llvm.org). 

- Generate native, optimized code in a platform- 
independent way (LLVM IR). 

- Built-in JIT (“Just In Time”) compilation. 

- Batch-compile programs to fast native code. 

- Dead easy to interface to C. 

- “ Compiled scripting language .” 

- Gave the language a facelift along the way. 
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Before: 


gr P X Y 

= P Y X; 


lq P X Y 

= not gr P X Y; 


qsort P [] 

= []; 


qsort P [X|Xs] 

= qsort P (filter (gr P X) 

Xs) ++ 


[X|qsort P (filter (lq P 

X) Xs)]; 


Main influences: Pascal, Prolog, Miranda 

After: 


qsort p 

[ ] 

= []? 


1 

qsort p 

(x:xs) 

= qsort p [ 1 ] 

1 = xs; l<x] 

+ 



(x : qsort p 

[r | r = xs; 

r>=x]) 



with x<y = p 

x y; x>=y = 

~p x y end; |J 


Main influences: Haskell, Aardappel, Alice ML 
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Features 
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fact 0=1; 

fact n = n*fact (n-1) if n>0; 


- Algebraic/functional 
programming language. 

- Term rewriting + modem FP (lambda, currying, closures). 




- Eager+ 
lazy evaluation. 


primes = sieve (2..inf) with 

sieve (p:qs) = p : sieve [q | q 

end; 


qs; q mod p] & 


- Easy C interface. (Not really that pure!) 

- In the planning stage: concurrency. 



extern 

[ rand 


int rand(); 
i = 1..20]; 
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What's this term rewriting? 


top(push(s,x)) 
pop(push(s,x] 



* 
s 



term rewriting 
system 


terms as “data” 




top(pop(push(empty,1))) —*■ top(empty) 


redex 




normal form 


reduct 


Whitehead et al: universal algebra, equational logic 


• O'Donnell et al: term rewriting as programming language 

• Goguen, Mahr et al: algebraic specification 

• Milner, Turner et al: modern functional programming 
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2. Signal Processing 
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Actor-style processing 


create buffer 


wavefile fname aname = process with 
process reset = () when sf_seek fp 
process bang = if ok res then bang 
n = nsamples; wave = dmatrix n; 
res = sf_read_double fp wave n; 
pd_setbuffer aname wave; 
end; 

nsamples = pd_getbuffersize aname; 

ok res = bigintp res && res>0; 

end when 

fp::pointer = sentry sf close 



read wave 


copy into Pd array 


(sf open fname 0x10 (imatrix [tabpiay- samples] samples 


end; 


P 


pd play 


wavefile "guitar.wav" "samples" 


route bang 


loadbang 


vol 1; 

vinsize 100; 
pd dsp 1 


r vol 


wavefile .pure: Use libsndfile 
to shovel chunks from a wave file 
into a Pd audio buffer. 


-i 

■ 1 

K: 


dac- 


volume 



P5~l 


window size (msec) 
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Stream processing 



input stream gets 
mapped to 
output stream 



motion (x,y) (vx,vy) (ax,ay) (step dtrnext) 

= [x,y,vx,vy] : motion (xl,yl) (vxl,vyl) (ax,ay) nex 

when 

vx = if abs x > 3 then -vx else vx; 
vy = if y < -3 then -vy else vy; 

xl = x+dt*vx+dt*dt*ax/2; yl = y+dt| *^tr+rH- ftd-t- * a W ? 
vxl = vx+dt*ax; vyl = vy+dt*ay; 

end; 

motion _ (vx,vy) (ax,ay) (mouse x y: 

= () : motion (x,y) (vx,0) (ax,ay) n 


ball = actor (motion (-3,3) (0.5,0) 

• f . .. .... „ 


ion detection 


Newtonian motion 



ball.pure: Bouncing ball 
animation using Gem. 


win dimen BOO BOO; 
win create; 

win color 0.6 0.6 0.9; 
win lighting 1; 
control xvel 1.2; 
control yacc -9.81; 
ortho 1; 
texture 1 


ball 0 

gemhead 

r - 

route list 

pd sound 


I _ 


color 111 

unpack f f f f 


Vertical acceleration 

[-1.41] 1-0.46| 

translateXYZ 000 

JEl 

pd texture ._. 


-1.62( 

-9.81( -24.79( 



control yacc $1 




































































































Signal Processing in Pure 


<5UTE»Mv„ 


3. The Future... 
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Functional Reactive Programming 


input stream 



- Inventend (mostly) at Yale (Hudak et al). FPL: Haskell. 

- Elegant algebraic semantics. But: No “standard” algebra 
for asynchronous processes yet! Much more complex than 
the synchronous case. 
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Pure as a Testbed for Signal Algebras 


- Play with different algebraic models. 

• Built-in support for 
streams and HOFs. 


infixl 1 until; 

(X until y) [] = []; 

(x until y) (a:z) = y a z; 


• Make our own algebras 
(constants, functions, operators). 

• Symbolic rewriting rules to specify semantics. 

• Dynamic typing lets us handle ad-hoc event structures. 

Interface with “the world out there”. 

• databases, XML, realtime engines, GUI, graphics,... 
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Other stuff to be done 

- Compiler improvements (better code for numerics, 
more aggressive optimizations). 

- Concurrency: Data parallelism (parallel matrix 
comprehensions), concurrent futures. 

- Pd-Pure: Add audio objects. 

- Interfaces to Faust, Max, Supercollider. 

- Whatever comes up on the Pure mailing list... 
http://groups.google.com/group/pure-lang 






